home *** CD-ROM | disk | FTP | other *** search
/ Savor the Moment - Entert…ing Without Reservations / Savoe the Moment - Entertaining Without Reservations.iso / pc / Full_In / _SETUP.1 / HOSmovie.dxr / 00013.ls < prev    next >
Encoding:
Text File  |  1999-10-03  |  466 b   |  23 lines
  1. property myDVSpriteNum, myDVLength
  2.  
  3. on beginSprite me
  4.   myDVSpriteNum = me.spriteNum
  5.   myDVMember = the member of sprite myDVSpriteNum
  6.   sprite(myDVSpriteNum).visible = 1
  7.   myDVLength = member(myDVMember).duration
  8. end
  9.  
  10. on exitFrame me
  11.   case 1 of
  12.     (sprite(myDVSpriteNum).movieTime < myDVLength):
  13.       go(the frame)
  14.     otherwise:
  15.       go(the frame + 1)
  16.   end case
  17. end
  18.  
  19. on endSprite me
  20.   sprite(myDVSpriteNum).visible = 0
  21.   sprite(myDVSpriteNum).visible = 1
  22. end
  23.